function [outm,m,n]=loopfeval(fname,t,varargin);
% function [outm,m,n]=loopfeval(fname,t,varargin);
% Perform the function given in fname t times, 
% with additional arguments in varargin
% If output of each function is of dimension (mxn) 
% Then outm is (t x m*n) such that each row corresponds to the (:)' 
% output of the function being evaluated
% AJ 12/08/03 
test=feval(fname,varargin{:}); 
[m,n]=size(test); 
outm=zeros(t,m*n); 
ii=1; 
for ii=1:t; 
    temp=feval(fname,varargin{:});
    outm(ii,:)=temp(:)'; 
end 

